home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / I-Info Magazine / (c)i20.d64 / atomic handball (.txt) next >
Commodore BASIC  |  2007-02-04  |  4KB  |  52 lines
  1. 10 REM         ATOMIC HANDBALL
  2. 15 REM
  3. 20 REM          FRANK LINDSEY
  4. 25 REM          BOWLING GREEN
  5. 30 REM          KENTUCKY, USA
  6. 35 REM          (502)781-3117
  7. 40 REM
  8. 45 REM LET'S HEAR IT FOR FREE SOFTWARE!
  9. 50 REM
  10. 55 REM LET'S ALSO HEAR IT FOR MAKING A
  11. 60 REM BUCK. WATCH FOR MY OTHER COMMER-
  12. 65 REM CIALLY AVAILABLE PROGRAMS.
  13. 70 REM
  14. 75 PRINT"[147][142]":POKE53280,6:POKE53281,6
  15. 80 PRINT"":GOSUB200
  16. 85 PRINT"                   BY"
  17. 90 PRINT"             FRANK LINDSEY"
  18. 95 PRINT"          INSTRUCTIONS?[160](Y/N)
  19. 100 [151]646,K:K[178]K[170]1:[139]K[178]16[167]K[178]0
  20. 105 [141]200:[161]A$:[139]A$[178]""[167]100
  21. 110 [139]A$[178]"N"[167]195
  22. 115 [153]"LOAD   RIGHT$N THE YEAR 2040 ALL MAJOR SPORTS
  23. 120 PRINT"   HAVE BEEN REPLACED BY THE EXCITING
  24. 125 [153]"           ATNTOMIC LEFT$ANDBALL!
  25. 130 PRINT"  [201]N THIS YEAR HANDBALL HAS EVOLVED TO
  26. 135 [153]"  THE POINT THAT, INSTEAD OF A RUBBER
  27. 140 PRINT"  BALL, THE GAME IS PLAYED WITH A MUON
  28. 145 [153]"  BALL THAT CAN ONLY BE DEFLECTED WITH
  29. 150 PRINT"AN ELECTRON PADDLE.  [211]UBATOMIC PARTICLES
  30. 155 [153]"MUST BE DESTROYED FOR POINTS BY CONTROL
  31. 160 PRINT"OF THE JOYSTICK IN PORT #2.  [208]RESS THE
  32. 165 [153]" FIRE BUTTON TO SERVE, AND CHR$(null)(null)STR$ (null)(null)LEN(null)!
  33. 170 PRINT"       ([208][210][197][211][211][160][193][206][217][160][203][197][217][160][212][207][160][194][197][199][201][206])
  34. 175 K[178]0
  35. 180 [151]646,K:K[178]K[170]1:[139]K[178]2[167]K[178]0
  36. 185 [129]L[178]0[164]30:[130]:[153]"ATNTOMIC LEFT$ANDBALL"
  37. 190 [161]A$:[139]A$[178]""[167]180
  38. 195 [153]"RETURN":[158]3580
  39. 200 [153]""
  40. 205 [153]"         (null)(null)(null)
  41. 210 PRINT"        [206] [205][205][205]
  42. 215 [153]"       (null)   (null)(null)(null) TANTANRIGHT$TANTAN(null)TANRIGHT$(null)RIGHT$(null)RIGHT$ = (null)TANRIGHT$
  43. 220 PRINT"      [206][192][192][192][192][192][205][205][205]  [221]  [221] [221][221][202][203][221] [221] [221]
  44. 225 [153]"     (null)       (null)(null)(null) >  MID$TAN(null)>  > > MID$TAN(null)
  45. 230 PRINT
  46. 235 PRINT"    [221]   [221][221][221]
  47. 240 [153]"    (null)   (null)(null)(null)
  48. 245 PRINT"    [171][192][192][192][179][221][221] [213][192][201] [213][201][178] [178][201] [178][201] [213][192][201] [178]  [178]
  49. 250 [153]"    (null)   (null)(null)(null) -TAN< (null)(null)(null) (null)(null) (null)RIGHT$ -TAN< (null)  (null)
  50. 255 PRINT"    [221]   [221][221][221] [177] [177] [177][202][203] [177][203] [177][203] [177] [177] [177][192][189][177][192][189]
  51. 260 [142]
  52.